unit IfxSQLTests;

interface

uses
  TestFrameWork;

type
  TIfxParamTests = class(TTestCase)
  private

  protected

//    procedure SetUp; override;
//    procedure TearDown; override;

  published

    // Test methods
    procedure TestFormat;
    procedure TestSaveToStream;
    procedure TestSaveToFile;
    procedure TestLoadFromStream;
    procedure TestLoadFromFile;
    procedure TestAssignValue;
    procedure TestAssignParam;
    procedure TestAssignField;
    procedure TestAssignToValue;
    procedure TestAssignToParam;
    procedure TestAssignToField;

  end;

type
  TIfxParamsTests = class(TTestCase)
  private

  protected

//    procedure SetUp; override;
//    procedure TearDown; override;

  published

    // Test methods
    procedure TestIndexOf;
    procedure TestFindSQLVAR;
    procedure TestSQLVARByName;
    procedure TestAssignValues1;
    procedure TestAssignValues2;
    procedure TestAssignValues3;

    procedure TestReset;
    procedure TestFindParam;
    procedure TestParamByName;
    procedure TestAssign1;
    procedure TestAssign2;
    procedure TestAssign3;

  end;

type
  TIfxSQLTests = class(TTestCase)
  private

  protected

//    procedure SetUp; override;
//    procedure TearDown; override;

  published

    // Test methods
    procedure TestParseMacroSQL;
    procedure TestExecuteDirect;
    procedure TestPrepare;
    procedure TestUnprepare;
    procedure TestParamByName;
    procedure TestExecute;
    procedure TestOpen;
    procedure TestClose;
    procedure TestIsCursorOpen;
    procedure TestNext;
    procedure TestPrior;
    procedure TestMoveTo;
    procedure TestMoveBy;
    procedure TestFieldByName;

  end;

implementation

{ TIfxParamTests }

procedure TIfxParamTests.TestAssignField;
begin

end;

procedure TIfxParamTests.TestAssignParam;
begin

end;

procedure TIfxParamTests.TestAssignToField;
begin

end;

procedure TIfxParamTests.TestAssignToParam;
begin

end;

procedure TIfxParamTests.TestAssignToValue;
begin

end;

procedure TIfxParamTests.TestAssignValue;
begin

end;

procedure TIfxParamTests.TestFormat;
begin

end;

procedure TIfxParamTests.TestLoadFromFile;
begin

end;

procedure TIfxParamTests.TestLoadFromStream;
begin

end;

procedure TIfxParamTests.TestSaveToFile;
begin

end;

procedure TIfxParamTests.TestSaveToStream;
begin

end;

{ TIfxParamsTests }

procedure TIfxParamsTests.TestAssign1;
begin

end;

procedure TIfxParamsTests.TestAssign2;
begin

end;

procedure TIfxParamsTests.TestAssign3;
begin

end;

procedure TIfxParamsTests.TestAssignValues1;
begin

end;

procedure TIfxParamsTests.TestAssignValues2;
begin

end;

procedure TIfxParamsTests.TestAssignValues3;
begin

end;

procedure TIfxParamsTests.TestFindParam;
begin

end;

procedure TIfxParamsTests.TestFindSQLVAR;
begin

end;

procedure TIfxParamsTests.TestIndexOf;
begin

end;

procedure TIfxParamsTests.TestParamByName;
begin

end;

procedure TIfxParamsTests.TestReset;
begin

end;

procedure TIfxParamsTests.TestSQLVARByName;
begin

end;

{ TIfxSQLTests }

procedure TIfxSQLTests.TestClose;
begin

end;

procedure TIfxSQLTests.TestExecute;
begin

end;

procedure TIfxSQLTests.TestExecuteDirect;
begin

end;

procedure TIfxSQLTests.TestFieldByName;
begin

end;

procedure TIfxSQLTests.TestIsCursorOpen;
begin

end;

procedure TIfxSQLTests.TestMoveBy;
begin

end;

procedure TIfxSQLTests.TestMoveTo;
begin

end;

procedure TIfxSQLTests.TestNext;
begin

end;

procedure TIfxSQLTests.TestOpen;
begin

end;

procedure TIfxSQLTests.TestParamByName;
begin

end;

procedure TIfxSQLTests.TestParseMacroSQL;
begin

end;

procedure TIfxSQLTests.TestPrepare;
begin

end;

procedure TIfxSQLTests.TestPrior;
begin

end;

procedure TIfxSQLTests.TestUnprepare;
begin

end;

initialization

  TestFramework.RegisterTest('IfxSQLTests Suite',
    TIfxParamTests.Suite);
  TestFramework.RegisterTest('IfxSQLTests Suite',
    TIfxParamsTests.Suite);
  TestFramework.RegisterTest('IfxSQLTests Suite',
    TIfxSQLTests.Suite);

end.
 